(lucid_event_type_list_p): Handle `help-echo',

`vertical-line', `mode-line' and `header-line' events.

diff --git a/src/keyboard.c b/src/keyboard.c
index beaf5507ef5bd627b50a370dbabd29ca95bc7a61..c6d48d65fe1c067b481c38881f02387b8df0622a 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -4704,7 +4704,7 @@ make_lispy_event (event)
 
                if (part == 1 || part == 3)
                  {
-                   /* Mode line or top line.  Look for a string under
+                   /* Mode line or header line.  Look for a string under
                       the mouse that may have a `local-map' property.  */
                    Lisp_Object string;
                    int charpos;
@@ -5824,6 +5824,12 @@ lucid_event_type_list_p (object)
   if (! CONSP (object))
     return 0;
 
+  if (EQ (XCAR (object), Qhelp_echo)
+      || EQ (XCAR (object), Qvertical_line)
+      || EQ (XCAR (object), Qmode_line)
+      || EQ (XCAR (object), Qheader_line))
+    return 0;
+
   for (tail = object; CONSP (tail); tail = XCDR (tail))
     {
       Lisp_Object elt;